home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pop.arc / BP.GX1 (.png) < prev    next >
GX1 Bitmap  |  1991-07-11  |  5KB  |  640x480  |  8-bit (41 colors)
Labels: text | screenshot | font
OCR: Page 1 File: BP Program: PRICE. INCREASE 11:06:02 07 OCT 1987 0001 *This PICK/BASIC program increases product price by a specified 0002 *percentage if the price has not been increased in the last 60 days. 0003 EQU PRICE TO 7, PDATE TO 8; * Attributes 7 & 8 contain price & date 0004 TODAY=DATE(); * Todays date 3005 OPEN 'PRODUCTS' TO PFILE ELSE STOP 201, 'PRODUCTS' 0006 PRINT 'Enter percentage to increase price by' : ; INPUT RATE 0007 IF NOT(RATE MATCHES ' 2N. 2N' > THEN PRINT 'Illegal Rate'; STOP 0008 EXECUTE 'SELECT PRODUCTS WITH CODE = "005"" 0009 DONE-0 0010 0011 LOOP 0012 READNEXT KEY ELSE DONE=1 UNTIL DONE DO 0013 READ RECORD FROM PFILE, KEY THEN 0014 0015 IF TODAY - RECORD(PDATE> > 60 THEN RECORD(PRICE>=RECORD(PRICE>*(RATE/100) 0016 END RECORD( PDATE>=TODAY 0017 0018 END ELSE 0019 PR ...